home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DBASE_UT / QUIKDB / README.TXT < prev    next >
Text File  |  1994-11-18  |  6KB  |  129 lines
  1. ===== Part of the DBFObj object ===========================================
  2.  
  3.     DBName  : FileName;  {DBF file name}
  4.     DBarea  : byte;      {DBF Area number}
  5.     CurrRec : longint;   {Current record number}
  6.     _FOUND  : BOOLEAN;   {True if found else false}
  7.     _EXACT  : BOOLEAN;   {True if exact search}
  8.     _EOF    : BOOLEAN;   {True if End Of File encountered}
  9.     _BOF    : BOOLEAN;   {True if beginning of file encountered}
  10.     _OK     : Boolean;   {True if OK}
  11.     _Confirm: Boolean;   {True if return has to be used to advance to next}
  12.  
  13. *   procedure zap;
  14.       {Delete all records}
  15. *   procedure recallall;
  16.       {Recall all Deleted Records}
  17. *   procedure pack;
  18.       {Remove deleted records from file}
  19. *   procedure recallrec(RecNum : longint);
  20.       {Recall a single record}
  21.       { Where RecNum = the Record Number you want to undelete}
  22. *   procedure deleterec(RecNum : longint);
  23.       {Delete a single record}
  24.       { Where RecNum = The record number you want to delete }
  25. *   procedure FRESHEN;
  26.       {Zap and pack all records}
  27. *   procedure CopySto(Fname : string);
  28.       {Copy file structure}
  29.       { Where Fname = The name of the file you want to copy the structure to}
  30. *   function  GetFld(Fnum : Byte) : string;
  31.       {Get Field from current record}
  32.       { Where Fnum = The Field number you want to retrieve}
  33. *   procedure replfld(Fnum : Byte;FStr : string);
  34.       {Replace Field from current record}
  35.       { Where Fnum = the Field Number you want to replace with Fstr
  36.               Fstr = The replacement string}
  37. *   procedure SayXY(xpos,ypos,fldnum : byte);
  38.       {Write a Field from current record to screen}
  39.       { Where xpos   = X position on the screen
  40.               ypos   = Y position on the screen
  41.               fldnum = Field Number to display}
  42. *   procedure GetXY(xpos,ypos,fldnum : byte;SayStr,Pix : string);
  43.       {Get user input and replace field}
  44.       { Where xpos   = x coordinate on the screen
  45.               ypos   = y coordinate on the screen
  46.               fldnum = Database Field Number (ex. 1st field in record = 1
  47.                                                   2nd field in record = 2
  48.               SayStr = Prompt string that appears before the get field
  49.               Pix    = Picture format string
  50.                         ! = Convert to uppercase
  51.                         X = Allow anything
  52.                         A = Allow alphabet characters only
  53.                         N = All alphanumeric characters only
  54.                         L = Allow logical entry only T for True F for False
  55.                         Y = Allow Y or N value
  56.                         # = Allow numeric valuse only
  57.                         9 = Allow numbers and decimal only
  58.                        @D = Allow date entry only exp
  59.                         @ = only valid if the first character in the string
  60.                             make the whole string the same as the next format
  61.                             character that follows exp. '@!' = make the
  62.                                                                complete string
  63.                                                                uppercase}
  64.  
  65. *   procedure GotoRec(RecNum : longint);
  66.       {Goto specified record}
  67.       { Where Recnum = Database record number}
  68. *   procedure appendblank;
  69.       {Append a blank record}
  70. *   function  recno : longint;
  71.       {Get current record #}
  72. *   function  reccount : longint;
  73.       {Get number of records in database}
  74. *   function  deleted : boolean;
  75.       {return true if current record is deleted}
  76. *   procedure skip;
  77.       {goto next sequencial record}
  78. *   function  Locate(fnum : byte;FldStr : string) : boolean;
  79.       {Locate a string if database}
  80.       { Where fnum   = The field number for the search string
  81.               FldStr = The Search String}
  82. *   function  Continue(fnum : byte;FldStr : string) : boolean;
  83.       {Find next occurance of string in locate}
  84.       { Where fnum   = The field number for the search string
  85.               FldStr = The Search String}
  86. *   procedure List;
  87.       {List database to screen}
  88. *   procedure DB_Stat;
  89.       {List DB statistics to screen}
  90. *   procedure NewField(FldName : string;Typ : char;Len,Dec : Byte);
  91.       {Create a new database field}
  92.       { Where FldName = the Name of the new field
  93.               Typ     = The Field Type ( C = Character
  94.                                          N = Numeric
  95.                                          D = Date )
  96.               Len     = Field Length
  97.               Dec     = Decimal Position }
  98. *   procedure DoBrowseX(Title,BoxDef : string;TopX,TopY,BotX,BotY,Shadow,Border,WindC,Highbar : byte);
  99.       {Browse with extended input}
  100.       { Where Title   = Displayed Title of Window
  101.               BoxDef  = Border Type exp Single = Single Line
  102.                                         Double = Double Line
  103.               TopX    = Top Left X Position of window
  104.               TopY    = Top Left Y Position of window
  105.               BotX    = Bottom X Position of window
  106.               BotY    = Bottom Y Position of window
  107.               Shadow  = Shadow color or $00 for no shadow
  108.               Border  = Border color
  109.               WindC   = Window Color
  110.               HighBar = Highlight Bar Color }
  111. *   procedure DoBrowse(X,Y : byte);
  112.       {Browse database}
  113.       { Where X = X position
  114.               Y = Y position}
  115.  
  116. ===== End of the DBFObj object ===========================================
  117.  
  118. procedure pause;                       {Display a pause prompt       }
  119. function  ctod(dates : str8) : string; {Convert a date to dbf date   }
  120. function  dtoc(dates : str8) : string; {Convert a dbf date to date   }
  121. function  Upper(str : string): string; {Convert lower to upper string}
  122. function  CurrDate : string;           {Return Current date          }
  123. function  StrToNum(Str : String) : integer; {Convert a string to numeric    }
  124. procedure ReadGet;                          {Read the Gets defined in DBFObj}
  125. procedure OpenDB(VAR DB : DBFobj;fname : string); {Open the database}
  126. function  CreateDB(VAR DB : DBFobj;fname : string) : boolean; {Create a database}
  127. procedure CloseDB(VAR DB : DBFobj);     {Close the database          }
  128.  
  129.